---
title: "More with LESS"
#author: "Machiel Visser"
#date: December 1, 2019
output:
flexdashboard::flex_dashboard:
orientation: columns #rows
vertical_layout: scroll #fill
social: menu
source_code: embed
---
```{r Load objects, include=FALSE}
load("FinalPlots_Simulations.RData")
load("FinalPlots_Data.RData")
load("FinalPlots_Data_SampleSize.RData")
```
```{r Load packages, include=FALSE}
library(ggplot2)
library(plotly)
```
# Simulation 1
## Column
### **Model dimensionality** when noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim1_var01_numbetas}
ggplotly(ggplotly(plot_sim1_var01_numbetas))
```
### **Model dimensionality** when noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim1_var1_numbetas}
ggplotly(plot_sim1_var1_numbetas)
```
### **Model dimensionality** when noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim1_var10_numbetas}
ggplotly(plot_sim1_var10_numbetas)
```
## Column
### **AUC** when noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim1_var01_auc}
ggplotly(plot_sim1_var01_auc)
```
### **AUC** when noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim1_var1_auc}
ggplotly(plot_sim1_var1_auc)
```
### **AUC** when noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim1_var10_auc}
ggplotly(plot_sim1_var10_auc)
```
# Simulation 2
## Column
### **Model dimensionality** when $P=2$.
```{r sim2_p2_numbetas}
ggplotly(plot_sim2_p2_numbetas)
```
### **Model dimensionality** when $P=10$.
```{r sim2_p10_numbetas}
ggplotly(plot_sim2_p10_numbetas)
```
### **Model dimensionality** when $P=100$.
```{r sim2_p100_numbetas}
ggplotly(plot_sim2_p100_numbetas)
```
### **Model dimensionality** when $P=1000$.
```{r sim2_p1000_numbetas}
ggplotly(plot_sim2_p1000_numbetas)
```
## Column
### **AUC** when $P=2$.
```{r sim2_p2_auc}
ggplotly(plot_sim2_p2_auc)
```
### **AUC** when $P=10$.
```{r sim2_p10_auc}
ggplotly(plot_sim2_p10_auc)
```
### **AUC** when $P=100$.
```{r sim2_p100_auc}
ggplotly(plot_sim2_p100_auc)
```
### **AUC** when $P=1000$.
```{r sim2_p1000_auc}
ggplotly(plot_sim2_p1000_auc)
```
# Simulation 3
## Column
### **Model dimensionality** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim3_p2_var01_numbetas}
ggplotly(plot_sim3_p2_var01_numbetas)
```
### **Model dimensionality** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim3_p2_var1_numbetas}
ggplotly(plot_sim3_p2_var1_numbetas)
```
### **Model dimensionality** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim3_p2_var10_numbetas}
ggplotly(plot_sim3_p2_var10_numbetas)
```
### **Model dimensionality** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim3_p10_var01_numbetas}
ggplotly(plot_sim3_p10_var01_numbetas)
```
### **Model dimensionality** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim3_p10_var1_numbetas}
ggplotly(plot_sim3_p10_var1_numbetas)
```
### **Model dimensionality** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim3_p10_var10_numbetas}
ggplotly(plot_sim3_p10_var10_numbetas)
```
### **Model dimensionality** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim3_p100_var01_numbetas}
ggplotly(plot_sim3_p100_var01_numbetas)
```
### **Model dimensionality** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim3_p100_var1_numbetas}
ggplotly(plot_sim3_p100_var1_numbetas)
```
### **Model dimensionality** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim3_p100_var10_numbetas}
ggplotly(plot_sim3_p100_var10_numbetas)
```
### **Model dimensionality** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim3_p1000_var01_numbetas}
ggplotly(plot_sim3_p1000_var01_numbetas)
```
### **Model dimensionality** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim3_p1000_var1_numbetas}
ggplotly(plot_sim3_p1000_var1_numbetas)
```
### **Model dimensionality** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim3_p1000_var10_numbetas}
ggplotly(plot_sim3_p1000_var10_numbetas)
```
## Column
### **AUC** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim3_p2_var01_auc}
ggplotly(plot_sim3_p2_var01_auc)
```
### **AUC** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim3_p2_var1_auc}
ggplotly(plot_sim3_p2_var1_auc)
```
### **AUC** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim3_p2_var10_auc}
ggplotly(plot_sim3_p2_var10_auc)
```
### **AUC** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim3_p10_var01_auc}
ggplotly(plot_sim3_p10_var01_auc)
```
### **AUC** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim3_p10_var1_auc}
ggplotly(plot_sim3_p10_var1_auc)
```
### **AUC** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim3_p10_var10_auc}
ggplotly(plot_sim3_p10_var10_auc)
```
### **AUC** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim3_p100_var01_auc}
ggplotly(plot_sim3_p100_var01_auc)
```
### **AUC** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim3_p100_var1_auc}
ggplotly(plot_sim3_p100_var1_auc)
```
### **AUC** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim3_p100_var10_auc}
ggplotly(plot_sim3_p100_var10_auc)
```
### **AUC** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim3_p1000_var01_auc}
ggplotly(plot_sim3_p1000_var01_auc)
```
### **AUC** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim3_p1000_var1_auc}
ggplotly(plot_sim3_p1000_var1_auc)
```
### **AUC** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim3_p1000_var10_auc}
ggplotly(plot_sim3_p1000_var10_auc)
```
# Simulation 4
## Column
### **Model dimensionality** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim4_p2_var01_numbetas}
ggplotly(plot_sim4_p2_var01_numbetas)
```
### **Model dimensionality** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim4_p2_var1_numbetas}
ggplotly(plot_sim4_p2_var1_numbetas)
```
### **Model dimensionality** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim4_p2_var10_numbetas}
ggplotly(plot_sim4_p2_var10_numbetas)
```
### **Model dimensionality** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim4_p10_var01_numbetas}
ggplotly(plot_sim4_p10_var01_numbetas)
```
### **Model dimensionality** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim4_p10_var1_numbetas}
ggplotly(plot_sim4_p10_var1_numbetas)
```
### **Model dimensionality** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim4_p10_var10_numbetas}
ggplotly(plot_sim4_p10_var10_numbetas)
```
### **Model dimensionality** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim4_p100_var01_numbetas}
ggplotly(plot_sim4_p100_var01_numbetas)
```
### **Model dimensionality** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim4_p100_var1_numbetas}
ggplotly(plot_sim4_p100_var1_numbetas)
```
### **Model dimensionality** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim4_p100_var10_numbetas}
ggplotly(plot_sim4_p100_var10_numbetas)
```
### **Model dimensionality** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim4_p1000_var01_numbetas}
ggplotly(plot_sim4_p1000_var01_numbetas)
```
### **Model dimensionality** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim4_p1000_var1_numbetas}
ggplotly(plot_sim4_p1000_var1_numbetas)
```
### **Model dimensionality** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim4_p1000_var10_numbetas}
ggplotly(plot_sim4_p1000_var10_numbetas)
```
## Column
### **AUC** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim4_p2_var01_auc}
ggplotly(plot_sim4_p2_var01_auc)
```
### **AUC** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim4_p2_var1_auc}
ggplotly(plot_sim4_p2_var1_auc)
```
### **AUC** when $P=2$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim4_p2_var10_auc}
ggplotly(plot_sim4_p2_var10_auc)
```
### **AUC** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim4_p10_var01_auc}
ggplotly(plot_sim4_p10_var01_auc)
```
### **AUC** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim4_p10_var1_auc}
ggplotly(plot_sim4_p10_var1_auc)
```
### **AUC** when $P=10$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim4_p10_var10_auc}
ggplotly(plot_sim4_p10_var10_auc)
```
### **AUC** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim4_p100_var01_auc}
ggplotly(plot_sim4_p100_var01_auc)
```
### **AUC** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim4_p100_var1_auc}
ggplotly(plot_sim4_p100_var1_auc)
```
### **AUC** when $P=100$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim4_p100_var10_auc}
ggplotly(plot_sim4_p100_var10_auc)
```
### **AUC** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 0.1)$.
```{r sim4_p1000_var01_auc}
ggplotly(plot_sim4_p1000_var01_auc)
```
### **AUC** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 1)$.
```{r sim4_p1000_var1_auc}
ggplotly(plot_sim4_p1000_var1_auc)
```
### **AUC** when $P=1000$ and noise $\sim N(\mu = 0, \sigma^2 = 10)$.
```{r sim4_p1000_var10_auc}
ggplotly(plot_sim4_p1000_var10_auc)
```
# Simulation 5
## Column
### **Model dimensionality** when noise $\sim t(df = 1)$.
```{r sim5_numbetas}
ggplotly(plot_sim5_numbetas)
```
## Column
### **AUC** when noise $\sim t(df = 1)$.
```{r sim5_auc}
ggplotly(plot_sim5_auc)
```
# Real data
## Column
### **Model dimensionality** for *Colon* dataset.
```{r colon_numbetas}
ggplotly(plot_colon_numbetas)
```
### **Model dimensionality** for *Glioma* dataset.
```{r glioma_numbetas}
ggplotly(plot_glioma_numbetas)
```
### **Model dimensionality** for *Leukaemia* dataset.
```{r leukaemia_numbetas}
ggplotly(plot_leukaemia_numbetas)
```
### **Model dimensionality** for *Lung* dataset.
```{r lung_numbetas}
ggplotly(plot_lung_numbetas)
```
### **Model dimensionality** for *Metastasis* dataset.
```{r metas_numbetas}
ggplotly(plot_metas_numbetas)
```
### **Model dimensionality** for *MLL* dataset.
```{r mll_numbetas}
ggplotly(plot_mll_numbetas)
```
### **Model dimensionality** for *SRBCT* dataset.
```{r srbct_numbetas}
ggplotly(plot_srbct_numbetas)
```
### **Model dimensionality** for *Wine* dataset.
```{r wine_numbetas}
ggplotly(plot_wine_numbetas)
```
## Column
### **AUC** for *Colon* dataset.
```{r colon_auc}
ggplotly(plot_colon_auc)
```
### **AUC** for *Glioma* dataset.
```{r glioma_auc}
ggplotly(plot_glioma_auc)
```
### **AUC** for *Leukaemia* dataset.
```{r leukaemia_auc}
ggplotly(plot_leukaemia_auc)
```
### **AUC** for *Lung* dataset.
```{r lung_auc}
ggplotly(plot_lung_auc)
```
### **AUC** for *Metastasis* dataset.
```{r metas_auc}
ggplotly(plot_metas_auc)
```
### **AUC** for *MLL* dataset.
```{r mll_auc}
ggplotly(plot_mll_auc)
```
### **AUC** for *SRBCT* dataset.
```{r srbct_auc}
ggplotly(plot_srbct_auc)
```
### **AUC** for *Wine* dataset.
```{r wine_auc}
ggplotly(plot_wine_auc)
```
## Column
### **Model dimensionality and AUC** for *Colon* dataset.
```{r colon_2d}
ggplotly(plot_colon_2d)
```
### **Model dimensionality and AUC** for *Glioma* dataset.
```{r glioma_2d}
ggplotly(plot_glioma_2d)
```
### **Model dimensionality and AUC** for *Leukaemia* dataset.
```{r leukaemia_2d}
ggplotly(plot_leukaemia_2d)
```
### **Model dimensionality and AUC** for *Lung* dataset.
```{r lung_2d}
ggplotly(plot_lung_2d)
```
### **Model dimensionality and AUC** for *Metastasis* dataset.
```{r metas_2d}
ggplotly(plot_metas_2d)
```
### **Model dimensionality and AUC** for *MLL* dataset.
```{r mll_2d}
ggplotly(plot_mll_2d)
```
### **Model dimensionality and AUC** for *SRBCT* dataset.
```{r srbct_2d}
ggplotly(plot_srbct_2d)
```
### **Model dimensionality and AUC** for *Wine* dataset.
```{r wine_2d}
ggplotly(plot_wine_2d)
```
# Real data - Sample size
## Column
### **Model dimensionality** for *Colon* dataset.
```{r colon_samplesize_numbetas}
ggplotly(plot_colon_samplesize_numbetas)
```
### **Model dimensionality** for *Glioma* dataset.
```{r glioma_samplesize_numbetas}
ggplotly(plot_glioma_samplesize_numbetas)
```
### **Model dimensionality** for *Leukaemia* dataset.
```{r leukaemia_samplesize_numbetas}
ggplotly(plot_leukaemia_samplesize_numbetas)
```
### **Model dimensionality** for *Lung* dataset.
```{r lung_samplesize_numbetas}
ggplotly(plot_lung_samplesize_numbetas)
```
### **Model dimensionality** for *Metastasis* dataset.
```{r metas_samplesize_numbetas}
ggplotly(plot_metas_samplesize_numbetas)
```
### **Model dimensionality** for *MLL* dataset.
```{r mll_samplesize_numbetas}
ggplotly(plot_mll_samplesize_numbetas)
```
### **Model dimensionality** for *SRBCT* dataset.
```{r srbct_samplesize_numbetas}
ggplotly(plot_srbct_samplesize_numbetas)
```
### **Model dimensionality** for *Wine* dataset.
```{r wine_samplesize_numbetas}
ggplotly(plot_wine_samplesize_numbetas)
```
## Column
### **AUC** for *Colon* dataset.
```{r colon_samplesize_auc}
ggplotly(plot_colon_samplesize_auc)
```
### **AUC** for *Glioma* dataset.
```{r glioma_samplesize_auc}
ggplotly(plot_glioma_samplesize_auc)
```
### **AUC** for *Leukaemia* dataset.
```{r leukaemia_samplesize_auc}
ggplotly(plot_leukaemia_samplesize_auc)
```
### **AUC** for *Lung* dataset.
```{r lung_samplesize_auc}
ggplotly(plot_lung_samplesize_auc)
```
### **AUC** for *Metastasis* dataset.
```{r metas_samplesize_auc}
ggplotly(plot_metas_samplesize_auc)
```
### **AUC** for *MLL* dataset.
```{r mll_samplesize_auc}
ggplotly(plot_mll_samplesize_auc)
```
### **AUC** for *SRBCT* dataset.
```{r srbct_samplesize_auc}
ggplotly(plot_srbct_samplesize_auc)
```
### **AUC** for *Wine* dataset.
```{r wine_samplesize_auc}
ggplotly(plot_wine_samplesize_auc)
```